home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Obx / Mod / MacHello (.txt) < prev    next >
Encoding:
Oberon Document  |  1996-01-05  |  2.0 KB  |  62 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Helvetica
  16. DevCommanders.StdViewDesc
  17. DevCommanders.ViewDesc
  18. MODULE ObxMacHello;
  19. IMPORT
  20.     SYSTEM,
  21.     QD := MacQuickDraw , FN := MacFontMgr, MW := MacWindowMgr, MN := MacMenuMgr,
  22.     TE := MacTextEdit, DL := MacDialogMgr, MT := MacTypes, EV := MacEventMgr;
  23.     window : MW.WindowPtr;
  24.     wRect  : QD.Rect;
  25.     string : MT.Str255;
  26. PROCEDURE InitMac;
  27. BEGIN
  28.     QD.InitGraf(QD.globals.thePort);
  29.     (* The QuickDraw Globals are proper Oberon Variables *)
  30.     FN.InitFonts;
  31.     MW.InitWindows;
  32.     MN.InitMenus;
  33.     TE.TEInit;
  34.     DL.InitDialogs(0);
  35.     QD.InitCursor;
  36. END InitMac;
  37. BEGIN
  38.     InitMac;
  39.     QD.SetRect(wRect, 50, 50, 400, 200);
  40.     window:=MW.NewWindow(NIL, wRect, '', TRUE, 0, SYSTEM.VAL(MW.WindowPtr,-1), FALSE, 0);
  41.     QD.SetPort(window);
  42.     QD.MoveTo(30,30);
  43.     MT.SetStr255(string, 'Hello World');
  44.     QD.DrawString(string);
  45.     REPEAT
  46.     UNTIL EV.Button();
  47.     MW.DisposeWindow(window);
  48. END ObxMacHello.
  49.  DevCompiler.Compile
  50.  DevLinker.Link ":Obx:MacHello" +ObxMacHello >ObxMacHello
  51. TextControllers.StdCtrlDesc
  52. TextControllers.ControllerDesc
  53. Containers.ControllerDesc
  54. Controllers.ControllerDesc
  55. TextRulers.StdRulerDesc
  56. TextRulers.RulerDesc
  57. TextRulers.StdStyleDesc
  58. TextRulers.StyleDesc
  59. TextRulers.AttributesDesc
  60. Helvetica
  61. Documents.ControllerDesc
  62.